'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
Declare Sub Mousedown(Source As Radiobutton, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As RADIOBUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
	On Event Mousedown From Source Call Mousedown
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
	'source.checknumber.visible=True
	'source.depositnumber.visible=False
	If currentview.name="Data Entry Screen" Then
		If currentview.body.commitflag.text="1" Then
			currentview.body.voidbutton.text="Remove this transaction from the balance"
			If (currentview.body.transtype.text=("") Or (currentview.body.transtype.text="None")) Then
				Messagebox("You must specify a transaction type of Check, Deposit, or Misc Withdrawl.")
				currentview.body.checkradio.setfocus
			Else
				If currentview.body.voidbutton.text="Remove this transaction from the balance"  Then
					removemessage
					currentview.body.voidbutton.setfocus
					If currentview.body.transtype.text <> currentview.body.holder.text Then
						currentview.body.transtype.text=currentview.body.holder.text
					End If
				End If
			End If
		Else
			currentview.body.voidbutton.text="Apply this transaction to the balance"
		End If
		If currentview.body.Transtype.text="Check" Then
			currentview.body.Checknumber.visible=True
			currentview.body.Depositnumber.visible=False
		Else
			If currentview.body.Transtype.text="Deposit" Then
				currentview.body.Checknumber.visible=False
				currentview.body.Depositnumber.visible=True
			Else
				currentview.body.Checknumber.visible=False
				currentview.body.Depositnumber.visible=False
			End If
		End If
	End If
	currentwindow.repaint
	RunApproachMacro("SetCheckNumber")
End Sub
'++LotusScript Development Environment:2:2:Mousedown:1:12
Sub Mousedown(Source As Radiobutton, X As Long, Y As Long, Flags As Long)
	source.holder.text=source.transtype.text
End Sub